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GREATER CLEVELAND SINCLAIR USERS GROUP 
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WEST SIDE GROUP MEETS AT LAKEWOOD PUBLIC LIBRARY 
15425 DETROIT AVE. LAKEWOOD OHIO 7:08 P.M. 
EVERY THIRD FRIDAY EACH MONTH 
CONTACT: DICK SIEG (216) 433-4387 


EAST SIDE GROUP MEETS AT THE EUCLID SQUARE MALL 


PLEASE NOTE THAT THE MOY EAST SIDE P| 
MEETING WILL BE AT 7230, APRIL 24this/ St 1€9Se Oo eC 
CONTACT: MAX SCHOENFELD (214) 371-1896 


welcome to use any af our aaterial, news, adds 
thers name that wrote the article. We would age 
yO mould send us a copy of the nemsietter that it appeared in! Uuiess athermise notified we will do the saae. 

P THANK YOU FOR YOUR INTEREST 1% OUR HEWSLETTER : 


A short note ta our friends from other nensietters and magazines. You are 
YOUs (1) Tell where it cane frow (RAMTQP Cleveland, Ohio} and (2) The aut 
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THE TSU—-BBS IS ALIVE 
SYSOP:Chris Raynak PHONE: 216-327-1999 PARAMETERS: 7/1/0 
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120 REMark #***¥RHHER44 RLE DECODER SRERRAP EES ESE 
11@ REMark Enter picture "device filename” 

120 DEFine PROCedure picture (fileS$?) 

130 LOCal col, lin, wid 

140 MODE 4: WINDOW#1,512,256, 0,0: PAPER#1, 7: INK#1, 0: CLS#1 U 
150 WINDOW#1,411,184,53, 11: PAPER#1, 0: CLS#1 

16@ WINDOW#1,411,194,53,12: PAPER#1,@: INK#1,7: CLS#1: SCALE#1,193,-1,-1. 

170 WINDOW#O, 409, 30,53, 226: PAPER#Q, 7: INK#0, 0: CLS#0 

180 OPEN #4,files 

190 IF lookfor("G") = @ THEN RETurn 

200 IF lookfor(¢’H”> = ® THEN RETurn 

210 col = @: lin = 192 

220 REPeat get_col_ wid 

230 IF EOF(#4) THEN EXIT get_col_wid 

240 col = col + CODE ‘(INKEYS (#4,500)) -—32 

250 IF EOF (#4) THEN EXIT get_col_wid 

260 wid = CODE (INKEYS (#4,500)) -32 

270 IF col + wid < 256 AND wid > @ 


280 LINE col,lin TO col + wid,lin: col = col + wid 
290 ELSE IF col + wid > 255 AND col < 255 

300 LINE: col, bin TO 255; lin 

310 lin = lin -1l 

320 col = (col + wid) MOD 256 

330 IF col > ® THEN LINE @,lin TO col,iin 

340 ELSE IF col + wid > 255 AND col > 254 

350 lin = lin -1l 

362 col = (seal + wid> MOD 256 

370 IF col > ® THEN LINE @,lin TO col,lin 

389 END IF : END IF : END IF 

390 END REPeat get_col_wid Ww 


4@®@ CLOSE #4 

41@ END DEFine picture 
42@ DEFine FuNction lookfor (aS) 

430 REPeat loop 

440 IF EOF (#4) THEN RETurn @ 

450 IF INKEY$(#4,30) = aS THEN RETurn 1 
460 END REPeat loop 
470 END DEFine lookfor 
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Ce) by Gabe Schaffer 
+ SSRSERE SSIES 35535535 03839 3 


Hello. This time there is a program from Gary Sprang 
(with modifications by yours truly) and sone computer humor. 
I can always use ideas for a column, so if you want an 
explanation of a command or function, please write: 

Gabe Schaffer 
2599 Saybrook Rd. 
Univ. Hts., OH 44118 


BREESE RS EES 5 909888 
COMPUTER HUMOR 
SRSA 39903 8 


I got these from (I think) the Jan. 1987 issue of Office 
Automation, and they got it from Open Systems. Here are sone 
ways to convey feelings in the fora of text: 


- I’m happy 

- I’m sad 

- I have mixed feelings 
- I’m wide awake 

I’m surprised 

- I’m VERY surprised 

— tongue stuck out) 

~- sounds tasty 

- I’m talking 


noe 
God oGCHALY 
1 


..and for advanced users: 


-} -— (fiendish grin) 
i-{ - (determined look) 


NOTE: If you don't understand thea, try rotating the 
page 90° clockwise. If that still doesn’t help, then the 
printer can't reproduce the characters correctly. 


SESSA 
PROGRAM 
SUSI 


Here is a SuperBASIC listing of a clock program for the 
QL. It will only work in TV mode. The progran draws a clock 
face and moves the hands according to the QL’s internal 
clock, which unfortunately is not very accurate because the 
QL doesn’t have quartz to regulate the clock. The variables 
for the hands are: 


Hand Vpdated Variable Old’ Variable 
fay 
“Second x,y Ox, oy 

Minute xayn oxm.oym 

Hour “h,yh axh, oyh 


You can reset the ciock with tne av commands SDATE (set 
date and time) and ADATE (adjust date and time) when the 
clock loses the correct tine. 


I modified the program to chine hourly (like a 
grandfather clock), to indicate either AM or PM, and to 
reposition the clock face on the screen. 


Gary’s program is first and ay aodified program second: 


10@ REMark graphic clock for Sinclair QL Superbasic 
11@ REMark by G. M. Sprang 3/5/87 


120 PAPER @:CLS:CLS#@:p2=PIXPI:SCALE 256,0,0 
13 RESTORE 


148 INK 7:CIRCLE 120,166,100 

150 OVER 1 

160 FOR n=l TO 12:READ u,i:CURSOR u,i!PRINT n 

17@ DATA 156,42, 192,608,210, 90,20, 120, 165, 143,116, 152 

18@ OATA 76, 144,33, 121,21, 9Q36,61,67, 43,110, 35 

190 OVER @ 

200 0x= 120: oy=100; oxm=1 20: oym=100:oxh=1 20; oyh=1 00 

21@ Z$=DATES h$=z$(1 TO T1)IAT 1,O:INK 7:PRINT h$ 

220 x$=DATES: y$=x$(19 TO )in=y$ 

230 x$=DATES/IF x$(19 10 20)=y$:60 70 230 

268 x=118+853(SIN(n/9.5)): y=100+85%(COS(n/9.5)) 

256 INK @:LINE 126,10@ TO ox,oy:INK 7:LINE 126,106 TO xy 
26¢ i$=x8(16 TO 17) :n=is 

270 xm=1184+65%(SIN(n/9.5)): ym=100465%(COS(n/9.5)) 

280 INK @:LINE 126,100 TO oxm.oym:INK 3:LINE 120,100 TO x,y 
298 y$=x$(13 TO 14) in=((y$-12)85)+(1$/12) 

300 xh=118+4S%(SIN(n/9.5))! yh=1@@+45%(COS(n/9.5)) 

318 INK @:LINE 12@,1@@ TO oxh,oyh: INK S:LINE 120,106 TO xhy 
h 

320 INK 7:LINE 120,100 TO x,y 

330 ox=x: oy=y:oxm=xm! oym=yasoxh=xh ‘oyh=yh 

348 G0 TO 228 


In the following listing of the modified version, new or 
altered lines are indicated with an arrow: 


1@@ REMark graphic clock for Sinclair @b SuperBASIC 
120 PAPER O'CLS:CLS#6:SCALE 256,6,0 
130 RESTORE 
P40 INK 7:CIRCLE 120,115,105 
150 OVER 1 
P10 FOR n=! TO 12:READ u,i!CURSOR u.i-G:PRINT n 
170 DATA 156,42, 192,60, 210,90, 200,120, 165,143, 116,152 
188 DATA 70,144, 33,121,21,9026,61,67,43, 110,35 
196 OVER @ 
200 0x=120; oy=100; axm=1 20 oym=100oxh=120:oyh=100:bell=9 
e210 z$=DATES:h$=z2$(1 TO TIDIAT 1,@:INK 7°PRINT AS!!SIF 2$(12 
TO 14))11;PRINT*PM" ELSE PRINT? AN” 
220 xS=DATES!y$=x$(19 TO )insys 
225 IF x$(16 TO )='00:00' :bell=x$(13 TC 14):1F beli>!2‘bell= 
bell-12:ELSE IF bell=@:bell=12 
23@ x$=QATES:IF x$(19 TO 20)=y$:60 TO 236 
248 x=118+8S3(SIN(n/9.5)) 'y=100+85%(COS(n/9.5)) 
Bm 250 INK @1LINE 128.11@ TO ox,ovtl@:INK 7:LINE 120,110 70 ny 
+10 Continued on PAGE 7 
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Hello again, Sinciasir fans! I hope you 
are all doing great and computing at 
full blast! I for one have not been at 
the keys a lot due to a heavy work load. 
T also just got a new VCR and have been 
having a good time with that. Speaking 
of VIDIO, I am still working on getting 
the second part of the article about 
DIGITIZING a vidio. I bought a digital 
VCR to get a good pause for this reason. 
The article said that you need the frame 
to be steady for about 5 seconds. 

The BIG thing this month is the 
COMPUTER FEST!!! I WILL BE THERE! 


INDY 
If any 


of you need a ride, see the article by 
Doug Gillespie in this issue. I will 
also have rcom for one or twa pecple 
with luggage and equipment. I asked a 
truck driver about the time of travel 
and he felt that about 6 1/2 hours 
should be allowed. If you want a ride 
from mé, call me at 214-661-4105 after 
opm. 

I need tc toss in a few lines about 


sending articles. I NEED ARTICLES! I 
mardi, ever get an article on the i960 
and I ENOW that a lat of you have them! 
I will gladly put your article in the 
RAMTOF! You may send it in almost any 
form as long as I can cut it and paste 
it on an 8 X 11 inch sheet. (with 3/4" 
borders) I prefer articles on cassette 
using Tasword, but know this is not 
always possible or convenient. 
FELEEEEEEFEEFEEEEEEPELELEF EEE EEE E+ EHH HHH 
PLEASE NOTE THAT THE MAY EAST SIDE 
MEETING WILL BE ON THE LAST FRIDAY OF 


APRIL!!! (APRIL 24th) PLEASE TRY TO BE 
THERE IF YOU PLAN TO GO TO THE INDY 
FEST! I’m sure that last minute items 


about the fest will be brought up. 
FEFEEEEEEAFEEFAEEEEEPEEFES E+E SEF HF $4 4444444 

I think that it is still somewhat of a 
mystery about the banquet Friday night 
Since plans have changed several times. 
I for one would like to go, but I'm 
still not sure what is going on about 
the dinner. If any cf you hear anything, 
let me know! 

Have any of you had a problem with port 
conflicts with one or more pieces of 
hardware? I had ai problem with my 
homemade printer interface and my Gliger 
disk system. If you have had a problem, 
call FREE NET and check out the bulletin 
I wrote about it. Till next month, TAKE 
CARE!!! James G&G, DuPuy 


sabe gd 
Looking 


For & Fe, 6 
Timelines BRS is looking for a 
few good Co-Sysope! I reguire at «=» 
least 3 Co-Sysops to help in the Cy) 

Running of Timelines BES. 

I need one to Syssp the TS-1000 
Files Section. One for the TS-2948, 
Spectrum Files Section and one for 
the @.L. Files Section. These neocle 
will run their section and be 
responsible for what files are there 
and not there. 

They also must take time to 
answer user questions of their 
sections users and tc try to help 
others who have trouble being able 
to use Timelines Files Section. 

What do they get in return? Two 
things. A big Headache and Unlimitec 
Access 56 they get the job done. 

If interested say so at the Club 
Meeting or leave a Comment for Sysop 
on Timelines BBS, Data No. F14-671- 
6922 from 19pm to Gam Nightly. 

Timelines Sysop, 
Robert Farish 


IF YOU ARE GOING TO THE IND. @ 
COMPUTER FEST, PLEASE READ: 


I am offering rides to Indiana- 
polis. I have a large van and can 
take 12-15 people. This can save 
lots of gas money! I plan to 
leave when the majoity of people 
want to leave. I will return soon 
after the convention ends. Call 
or write as soon as possible so I 
can confirm leaving time. . Anyone 
living between Cleveland and Indy 
(somewhere close to 71 or 70) is 
welcome! It’s 311 miles toa Indy 
and will take about 5-4 hours. It 
should cost about $5.00 round 
trip or less with more people 
plus you can sit back and enjoy 
the ride! I will pick everyone up 
at their home and drop them off, 


It will be first come first 
serve, so Please call or write 
SOON! DOUG GILLESPIE 214-884-8825 

5860 CALAMIE DR. j 
PARMA HTS., OH, 44120 
There is plenty of room for 
luggage and computers. 


If you would like to subscribe tc the RAMTOP please fill out 
this Form and send it to the listed address along with a check 
For: $1S5/Year or $7.S50/ 6 mo. to become a member of our Group 
CAttend meetings, use library tapes Ect.) or: $12/Year or S6/ 6 
months to receive the RAMTOP ONLY! Please make checks payable to 
the RAMIOP! (The phone # is only for our records! ) 
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“Please print! Enclosed: & for 1 year__ / 6&6 months__* 
* 2 % 
*NAME : PHONE: = - Seer 
bal We need your phone # *: 
*STREET: for our records! bal 
* ae 
“CITY: = STATE: _ - ZIP: has * * 
* * 
*Type of computer(s) and peripheralCs) you own: at 
”% * 
* * 
* THANK YoU for your interest! Please send to: ~ 
e 


*Robert Parish, 12706 Leeila Ave., Cleveland, OH #4135 
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UPSIDE DOWN AND SIDEWAYS TOO!! =10 


=O TO ¥: FOR a=8 To 7 
POINT (3,175-bi=8 THEN & 


Some time ago the RAMTOP 
published an article on printing 
upside down, using the POINT 
function. You can also use this 
same POINT to print text side- 
ways. The book, "The Complete 
Spectrum," contains a program to 
rotate a letter 970 degrees at a 
time, as follows. 


With a bit of effort you 
can build on this program to 
print words in all four 
rotations. The fly in the oint-— 
ment is that the upside-down 
part is literally upside-down 
like a mirror image, and not 


really rotated twice. Still it ET x R+Le. i Weil 

is an interesting project. I 5 Rotetee a) noes ee ef 
killed two birds with one stone o To oa Pe ee hase 
with the following program. as PLO 

486 MEX b 
Max Schoenfeld 490 DAT: OTR eg pe 
5@@ PRI! ae 

10 REM “fair 5" =e ee 

2Q@ REM by Ha Schoenfeld . 

30 LET u=is Continued from QoLumn 

48 FOR z=1 TO 5 a 

S@ REAL as 268 1$=x$(16 TO 17)in=l$ 

Se Be a eee 570 xn] 1B+658(SIN(0/9, $)): ya=i 00465X(COS(n/9.5)) 
80 FOR bea TO 7. FoR s=8 To F © 280 INK @:LINE 120,118 TO oxm,oya+10:INK 3:LINE 128,118 TO x 
38 EP POINT (a,275-b13=8@ THEN & m,ymtl@ 
i TO 21¢ 

eae Coe 290 y$=x$(13 TO 14):n=C(y$-12)45)4( 18/12) 

110 NEXT XT 6b 306 xh=118+45X(SIN(n/9.5)):yh=160+45x(COS(n/9.5)) 
1g@ PRI Be ee ait P- 310 INK @:LINE 120,118 10 oxh,oyhel@cINK S:LINE 128,110 72 x 
i5@ NEXT = So a 

150 LET yeiis_ : F320 INK 7:LINE 120,118 TO x ytl 

lee RERD ag Py 33e Ox=x; OY=y, Oxm=xm : OyR=yN,oxh=xhoyh=yh 

130 PRINT AT @,@;a% Pe23s IF bello@:BEEF 10000,1@‘bell=bell-7 

280 LET ~=148: LET y=y-19 D340 GG TC 218 


THE FOLLOWING FORM IS FOR THOSE WHO ARE 


— 


INTERESTED 
RECEIVING A LIBRARY TAPE. YOU MUST FILL THIS QUT AND RETURN 


IN 
La 


IF YOU WANT A TAPE MAILED To YOU! This form is for those of you 


that DON’T attend the meetings. There are © ways to get 
of the programs in our library: 1- Send a C-S30 with your 
address and $1.00 (P&H) or 2- We will send you a tape 
can keep for $3.00. (Make checks payable to The RAMTOP) 


Thank You for your support of our group! 


copy 
return 
that you 


Asceidpiis pte ANNO TT TT TT LL LLL Lt lalallala 


Do you have a DISK system: Ctyped___ 


* * LIBRARY TAPE FORM * 

* 

* NAME _ PHONE seg = 
* , phone # is REQUIRED! 
* ADDRESS - 

* 

* CITY | _ STATE ZIP 
* 

% 

TYPE OF COMPUTER YOU OWN: 1000/2X-81 __ /1500 __ /€088 __ 
* 

*® 

* 

mm 

cd 


completely as possible. 


check all that you have : QL... OTHER raed es 


eee 
Plese note that we request that the Form be filled out as 


teteete teeta te te ® 


cee eee xa ated eAteE ERS ER EERE RHEE SEES ESE e MENS HESS N SESE SESS 


Mail the form along with your check ($1.00 or $3.00) to: 
Dean Miller (Librarian) + It would he appreciated if you 


eg3e4% Park St. + send us any noncopyrighted soft- 
Wickliffe, OH, %4#O0Se + ware!!! CPhone- 216-944-8630) 
-8- 


From: : 

The GREATER CLEVCLANO GiRCLAIR USERS GAGUP 
James G. DuPuy CEditor? 

6514 Bradley Ave. (Down) 

Parma, Ohio 44129 


FIRST CLASS MAIL 


